home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / easygrap.arc / DISPGRDR.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-07  |  640 b   |  33 lines
  1. 10  SCREEN 0,1
  2. 20  COLOR 15,9,1
  3. 30  KEY OFF
  4. 40  CLS
  5. 50  PRINT STRING$(40,176)
  6. 60  PRINT STRING$(1,176)+SPACE$(38)+STRING$(1,176)
  7. 70  PRINT STRING$(1,176)+"       EASY - GRAF   DIRECTORY        "+STRING$(1,176)
  8. 80  PRINT STRING$(1,176)+SPACE$(38)+STRING$(1,176)
  9. 90  PRINT STRING$(40,176)
  10. 100  PRINT " "
  11. 120  OPEN "GRAFINDX.EZG" AS #1 LEN=128
  12. 130  FIELD #1,10 AS IDX$, 25 AS DESC$
  13. 135  FOR I = 1 TO 10
  14. 140  GET #1,I
  15. 150  IF IDX$ <> SPACE$(10) THEN PRINT " "+IDX$+"  "+DESC$: FOUND$="yes"
  16. 160  NEXT
  17. 180  IF FOUND$ <> "yes" THEN GOTO 500
  18. 430  PRINT " "
  19. 440  PRINT "   PRESS space bar TO RETURN TO MENU"
  20. 450  CLOSE #1
  21. 460  K$=INKEY$: IF K$="" THEN 460
  22. 470  IF K$ = " " THEN 490
  23. 480  GOTO 460
  24. 490  CHAIN "EASYGRAF"
  25. 500  PRINT " "
  26. 510  PRINT "          NO  ENTRIES  FOUND"
  27. 520  PRINT " "
  28. 530  PRINT " "
  29. 540  PRINT " "
  30. 550  PRINT " "
  31. 560  PRINT " "
  32. 570  GOTO 430
  33.